home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
basic
/
imb9011.zip
/
MODULE2.BAS
< prev
next >
Wrap
BASIC Source File
|
1990-11-01
|
556b
|
38 lines
'Module level code for the support module MODULE2.BAS
COMMON A$, B$, C$
COMMON /FirstBlock/ O$
COMMON /SecondBlock/ N$
SUB SubMod2A
SHARED O$, N$
PRINT "Entering SubMod2A"
PRINT " with SHARED O$, N$"
PRINT "A$="; A$, "B$="; B$, "C$="; C$
PRINT "N$="; N$, "O$="; O$
PRINT "Leaving SubMod2A"
PRINT
END SUB
SUB SubMod2B
SHARED A$, B$, C$
PRINT "Entering SubMod2B"
PRINT " with SHARED A$, B$, C$"
PRINT
PRINT "A$="; A$, "B$="; B$, "C$="; C$
PRINT "N$="; N$, "O$="; O$
PRINT "Leaving SubMod2B"
PRINT
END SUB